a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


H 9 
| **FILE**1D**FORUDFRN 
FFFFFFFFFE 000000 RRRRRRRR UU UU DDDDDDDD FRFFFFFFFE 
FFFFFFFFFF 000000 RRRRRRRR UU UU DDDDDDDD FRFFFFFFFF 
FF 00 OO RR RR UU UU DD DD FF 
FF 00 OO RR RR UU UU DD DD FF 
FF 00 OO RR RR UU UU DD DD FF 
FF 00 0O RR RR UU UU DD DD FF 
FFFFFFFF 00 00 RRRRRRRR UU uu 0D DD FFFFFFFF 
FFFFFFFF 00 O00 RRRRRRRR UU UU DD DD FFFFFFFF 
FF 00 OO RR RR UU UU DD DD FF 
FF 00 OO RR RR UU UU DD DD FF 
FF 00 OO RR RR UU UU DD DD FF 
FF 00 00 RR RR UU UU DD DD FF 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD FF 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD FF 
LL 111111 SSSSSSSS 
LL H1111 SSSSSSSS 
LL I] SS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL 1111 SSSSSSSS 
LLLLLLLLLL 1111 SSSSSSSS 


NN NN 
NN NN 
NN NN 
NN NN 
NNNN NN 
NNNN NN 
NN NN NN 
NN NN NN 
NN NNNN 
NN NNNN 
NN NN 
NN NN 
NN NN 
NN NN 
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MODULE FORSSUDF_RN me CaTeTe oe SNARELIST input UDF level’ 
“1D ENT ' File: FORUDFRN.B32 Edit: SBL1005 


BEGIN 


leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eee eeeeeeeeeteteeeeteetereteeeeereeeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


; 1 0 9} 6 

; : 88 

; 4 0004 1 

3 5 0005 1 

3 6 0006 1 

3 7 0007 1 

3 8 0008 1 * 
; 9 0009 1 * 
3 19 8 19 : ‘* ALL RIGHTS RESERVED. * 
P .* eT 
: \¢ 8 \¢ 1 '® THIS por runne i pen auce UNDE® A ‘a i AND MAY BE USED AND copieD * 
3 1 1 1 !* ONLY IN ACCORDANCE WITH THE TERMS SUCH Lic ENSE AND WITH THE * 
: 14 0014 1! IN tite OF THe ABOVE corre er S NOTICE. THIS SOFT WARE OR ANY OTHER ®* 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 
3 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 ii 8 i? : :* TRANSFERRED. ° 
3 'e * 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 21 0021 1 !* CORPORATION. * 
; $$ B05¢ 1 !e * 
ee 0025 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 00246 1 !'* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @ 0025 1 !«* * 
; «& 0026 1 !* + 
: ev 0027 1 Seeeeeeeeeeeeeeeee eee eee ee eeKeAAHEHEK AKA Hee Kee ee KR KAKeeReeeeeteeeteeeeeene 
; «a 0028 1! 

: $3 694 1 

3 0 0030 1 !++ 

. 2 0031 1 ! FACILITY: FORTRAN Language Support 

: 32 Bos 1! 

: 33 003 1 ! ABSTRACT: 

3 34 0034 1! 

5 35 0035 1! This module contains the User Data Formatter level code for 

3 28 ie) : FORTRAN NAMELIST input. 

3 4 st ' ENVIRONMENT: Runs at any access mode - AST reentrant 

3 re re : : AUTHOR: Steven B. Lionel, CREATION DATE: 11-July-1980 

; ry 9k 4 1 ! MODIFIED BY: 

s «¢ 0043 1! 

; & 044 1! I1- ot - Original. SBL 11-July-1980 

3; 69 045 1! 1- 4 - Correct call for eyniee error, Remove declaration of CALLG, not used. SBL 18-Nov-1980 
> 46 0046 1 | 1-003 = Add diagram of NAMELIST descriptor block. SBL 15-April-1981 

tee’ 0047 1! wee First post-V3.0 edit *** 

3; 648 0048 1 ! 1-004 = Add query Lacture, Use prologue file. SBL 10-Jan-1983 

; r+ se : 1-005 - Allow group name to end with <TAB>. SPR 11-57564 SBL 2-Jun-1983 

: 51 0051 1 


LIST input UDF Level 


oz 
or 
oz 
on 


MSBTTL ‘Declarations’ 
PROLOGUE FILE: 


jojojlejlolelo) 
PIPSIIVIVIY 


REQUIRE ‘RTLIN:FORPROLOG'; 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
FORSSUDF_RNO : JSB_UDFO NOVALUE, 
PROCESS CIST : CALC_CCB NOVALUE, 
FORSSUDF_RN9 : JSB_ODF9 NOVALUE; 


; INCLUDE FILES: 


LIBRARY ‘RTLTPAMAC'; 


MACROS: 

NONE 

EQUATED SYMBOLS: 

! NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 

EXTERNAL ROUTINE 
FORS$DO_NML_OUTPUT: CALL_CCB NOVALUE, 
FORSSREC_RSRO : JSB_RECO-NOVALUE, 
FORSSREC WSNO : JSB™RECO NOVALUE. 
FORSSSIGNAL_STO: NOVALUE, 
LIBSTPARSE; 

EXTERNA 


L 
FORSSA_NMLSTATE, 
FORSSA_NMLKEYWD; 


foleleleleleolelololojlelelolejlelalelelelelelelolelelelelelelelelelelelolololelelelolololololololala) 
Nk el ek kd a ok a oh od od od Od dD 
DD DPA D Sr & BB BB BB AANA oponononorn 
MEAN $0 OONAUES WN $0 OD NA UNE WWN 0 OD NAME WW SO COWIE WOU wr 
a dd od ot 


J 9 
16-Sep-1984 00:49:15 
arations Ha et 99:93:53 


FORS definitions 


Start NAMELIST processing | 
Do bulk of NAMELIST processing 
End NAMELIST processing 


TPARSE macro definitions 


Do NAMELIST output 
Read @ record 
Start a write 


Parse input records 


TPARSE state tables 
TPARSE keyword block 


AX=-11 Bliss-32 V4. 
FORRTL.SRC JF ORUDF 


nb 4951 


Page 


FOR 


kK 9 
RSSUDF _RN NAMEL IST input UDF Level 16-Sep-1984 00:49:15 AX-11 Bliss-32 V4.0-74 Page 3 
005 FORSSUDF_RNO = NAMELIST input UDF Level 14-Sep-1984 12:32:51 FORRTL.SRCJFORUDFRN.B32;1 (3) 
03 016 ASBTTL "FORSSUDF_RNO = NAMELIST input UDF Level’ 
Be 16 GLOBAL ROUTINE FORSSUDF_RNO: JSB_UDFO NOVALUE ! NAMELIST input initialization 


'e4¢ 


i FUNCTIONAL DESCRIPTION: 
Initialize NAMELIST input. 
CALLING SEQUENCE: | 
JSB FORSSUDF_RNO 
FORMAL PARAMETERS: | 
NONE | 
IMPLICIT INPUTS: 
CcB Pointer to current logical unit block 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 
See PROCESS_LIST. 


APWUN OD NOU PUNY OO NOMEN OD 


et ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


BEGIN 


EXTERNAL REGISTER 
CCB : REF SFORSCCB_DECL; 


‘+ 

! Call PROCESS_LIST to do all the NAMELIST processing. Note that 

! this is done from the initialization call since there are no element 
;_transmit calls for NAMELIST. 

PROCESS_LIST (); 


RETURN; 
END; 


ak a a ak ki a td nd ot = = a = a SY 2 2 


VN ESL LLL 
=> PIPINININININININMIPINININ AID a tt nt rt st nt st sk kt tk tk at hh th oh hh tt 


fe ee ee eee wwe ioleloleleleleleleleolelelelolololelelelelolelelololololololol ola) 


POPIPONGPONOMONINPONOPONINNINDY 2 9 2 9 SS Ss SS 9 9 9 hh 8 SS 
at 4 | MHQOOCDOODOOOO OOO OOOO OO OW WOO WWW WOO NI NIN NI NN NN NNO Oo 


MEUM (OOD NOUS WN O ODNA UE WN O OONAUE WW SO OENOU SWI O0M 


M—OCOOBNOufWN-OO 


! End of routine FORSSUDF_RNO 


-TITLE FORSSUPF LRN NAMELIST input UDF level 
IDENT \1-005\ 

-EXTRN FORSSDO_NML pure 

-EXTRN FORSSREC_RSNO, FORSSREC_WSNO 


FORSSUDF _RN 


ay a input UDF le 


0000v CF 


; Routine Size: 6 bytes, 


s 53 0216 1 !<BLF/PAGE> 


l 
UDF _RNO = NAMELIST input UDF Level 


Routine Base: 


1$-sep-98s 09:49:15 
ons 
ORSSA 


‘> 


«PSECT 


00 FB 00000 FORSSUDF_RNO:: 
CALLS #0, PROCESS_LIST 
05 00005 RSB 


nedanihouall SHR, PIC,2 


-FORSCODE + 0000 


7D 
Lad 


F 
1 


“2 
mr 
nn 


S 


WAU NANA NIWnonororonofpefrononn SCO 


BIE WN OC ODNAUES WN 0 ODNAUES WN“ OCONAUESWN—OWOOnN Om 


30.0009 09 09 0909 09 9 09 09 ISIN ISIN NNO OO AACN 


Be Se Se Oe Ge Se Se Se He Be Se Se Be Oe Be Os Oe Se Se Se Se Se Oe Se Se Se Se Se Se Os Oe Oe HHH OH OH Oe es Bees 


a et ee ce el lel el el el el el eel cl el ll el el el cel ee cel el cl el el eel el 
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. 
| 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
! 
. 
' 
. 
‘ 
‘ 
. 
' 
. 
' 
* 
' 
' 
. 
' 
. 
4 
. 
1 
. 
i 
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l 
- Process NAMELIST input FORUDFRN.B32;1 


L_"PROCESS_LIST = Process NAMELIST input’ 


NE PROCESS"LIST 


! Process NAMELIST input 
: CALL_CCB ROVALUE = 


+ 
FUNCTIONAL DESCRIPTION: 
Process NAMELIST input. dr 
roup with the specified name is found. 
s to user variables until the group end is found. 
CALLING SEQUENCE: 
CALL PROCESS_LIST 


FORMAL PARAMETERS: 


Read records from the current unit unti 
Process NAMEL! 


IMPLICIT INPUTS: 


Pointer to current logical unit block 


CCB 
ISBSA_FMT_BEG Pointer to NAMELIST descriptor block 


IMPLICIT OUTPUTS: 
! COMPLETION STATUS: 


! SIDE EFFECTS: 


Reads one or more records from the input file. 
user variable assignments. 


Performs zero or more 


! <BLF /PAGE> 


FORSSUDF _RN NAMELIST input UDF Level 16-Sep-1984 00:49:15 AX=11 Bliss-32 V4.0-74 Page 6 

1-005 PROCESS. LIST - Process NAMELIST input 19-88-1382 99:93:33 FORRTL. SRC IF ORUDFRN.B3 31 . (5) 

; 196 0257 1 !++ : 
; Hb 44 0 28 : : Each NAMELIST descriptor block has the following form: : 
: 199 60 1! 3 222 $4079 0079 ; 
; 4 8 o : } 1 ; 5 j 7 6 g 4 g 5 i 5 98765432109876543210 : 
3 oe 0 6¢ 1 ' gree ree ee ee ee eee eee Se een set sees een ese etter eow seen eer eEaenwrenresees + Pt 
; S 8 rt: : 0 H Address of ASCIC name of NAMELIST group H : 
; 205 0266 1! a Reserved i Count of NAMELIST variables |; : 
e 206 0 67 1 ! + seeeece ee ee Se eee eee eee eaaneaanaeaee P| 
; soe 0268 1! 2 1 Address of ASCIC name of variable 1 : 
3 08 0 69 1 ' dee ee Oe Oe mE BO meee ee oe ene eo o th eee eee eee Oe eS + D4 
; 209 0270 1! a 4 Address of standard VAX descriptor for variable 1 H ; 
: 210 B37) 1 | 4 «—s«_—s:—«s daeweerencncncnneesenoserasoenssosnqensenqusenceeesesqeesescooos + : 
3; 211 0 i 1} 4 | a H ; 
$ \§ 027 , 2 ee ee ee + $ 
; si 8 a : ei Address of ASCIC name of variable n ' : 
g 5 OS SSS SS SSS SSS SESS eeeeeeeseeseeseeeoooeseeesoes + . 
> 215 0276 1! 6 | Address of standard VAX descriptor for variable n | ; 
: 216 O377 1 $4 dawenecccccennencccnccocencesecsececensceccseseecccccesescocesce : 
> 27 0278 1! : 
; ee 0279 1! : 
; 219 0280 1! The NAMELIST group name and the variable names which are pointed to in 3 
3; ¢20 Sh+ 1! the NAMELIST descriptor block are upper case only. The FORTRAN : 
3; el 0 S 1! compiler or other calling prosres is responsible for case conversion : 
> 222 0285 1! of the name strings. In NAMELIST input data, case is Sieriticent only : 
2 ge 0284 1! in character literals. The run-time Library is responsible for case ; 
; sso Bs8e ' : conversion of NAMELIST input data. : 
3 2¢6 0287 1! The allowable data types in variable descriptors are BU (BYTE), WU, ; 
: 227 0288 1! LU, WwW, L, F, D, G, H, T, FC, DC, and GC. The allowable descriptor : 
3; ¢¢8 0289 1! classes are scalar and array. for the array class descriptor, the : 
; 229 0290 1! descriptor rage COLUMN, COEFF, and BOUNDS must be set, indicating : 
; 230 0291 1! column-major order and the presence of coefficient and bounds blocks. : 
: @2) 5508 1! The number of dimensions must not exceed 7. : 
; eM 0293 1 !-- : 
: @ae 0294 1 : 
; 234 0295 1 !<BLF/PAGE> : 


10 
NAMELIST input UDF Level 16-Sep-1984 00:43:12 ost Bliss-32 Le Pug 6 Page 
PROCESS_LIST = Process NAMELIST input 14-Sep-1984 12:32:51 FORRTL.SRCJFORUDFRN.B32;1 
; 6 0296 BEGIN 
3 7 0297 
; 8 8 98 EXTERNAL REGISTER 
: 9 99 CCB : REF SFORSCCB_DECL; 
; 240 0300 
; 4) 0301 LOCAL 
; 28 0308 PARAM_BLOCK : BLOCK CNMLSK_BLKLENGTH, BYTE] FIELD (NMLSFIELDS); 
: 44 0304 '+ 
; 245 0305 ! Fill im basic fields of TPARSE parameter block 
he 8 Bie 
> 248 $304 CHSFILL (0, NMLSK_BLKLENGTH, PARAM BLOCK); ! Fill with zeroes 
: 249 0309 2 PARAM_BLOCK CTPASC_COUNT] = TPASK_COUNTO; 
; 20 0310 2 PARAM_BLOCK CNMLS$A_LISTBLOCK] = .CCB CISBSA_FMT BEG]; ! NAMELIST block address 
: 251 0311 2 PARAM_BLOCK CNML$A_CCB) = .CCB; ! CCB address 
3 S26 baig 2 
; £ 0313 2 4 
> 254 0314 2 ! Find name of NAMELIST group and read records until it is found. 
$ £2 0315 2 le 
> 256 0316 ; 
s gor 0317 BEGIN 
; 258 0318 3 LOCAL 
: a 0319 3 GROUP_NAME: REF VECTOR C, BYTE], 
; 44 B59 3 RECORB_ADR: REF VECTOR C, BYTE); 
: seg 0322 3 GROUP_NAME = ..PARAM_BLOCK CNMLSA_LISTBLOCK); 
; 26 0323 3 WHILE 1 DO 
: 264 0324 4 BEG! 
; 265 0325 4 
3; 266 0326 4 BUILTIN 
: 267 0327 4 LOCC; 
; 268 0328 4 
3; 269 0329 4 + 
: 270 0330 4 ! Read a record and see if it has the Fight grove name. 
3; eri 0331 4 ! STRING will be the remainder of the Line if the search succeeds. 
; si¢ O36 4 !- 
ee es 0333 4 
: 276 0334 4 FORSSREC_RSNO (); ! Get next record 
; 275 0335 4 RECORD_ABR = .CCB CLUBSA_BUF_PTR]; | Record buffer address 
; 276 0336 4 
; 144 0337 4 + 
; 278 0338 4 ! Trim comment, if any, from record. 
3 43 tte 4 !- 
; 280 340 4 
: 281 0341 4 LOCC (ZREF(ZC"!"), ZREF((.CCB CLUBSA_BUF_END] - .RECORD_ADR)), 
; ge O34¢ 4 RECORD_ADR (03;, CCB CLUBSA_BUF_ENDJJ; 
; «284 0344 4 IF RECORD_ADR (2) LSSA .CCB CLUBSA_BUF_END) ! Group name possible? 
: 285 Bese 4 THEN 
3 $68 “08 2 BEGIN 
: 87 34 IF .RECORD_ADR C1] EQLU %C°S* OR .RECORD_ADR (1) EQLU %C'S" 
3 $B8 348 5 THEN 
: 289 $2 6 BEGIN 
: 290 0350 6 LOCAL 
; 91 Bees 6 STRING_PTR, 
; oe 0352 6 GROUPNAME _LEN; 


| 
| 
| 


10 

FORSSUDF _RN NAMELIST input UDF Level 1b-3¢ -1984 00:49:15 AX-11 Bliss-32 V4.0-74 
/1=005 PROCESS. LIST - Process NAMELIST input 1 =8e5-19 4 99395583 PORRTL SRE TFORUDERN. 04551 
: 93 2 6 GROUPNAME_LEN = .GROUP_NAME [0]; 

: 92 ee ? RECORD_ADR = RECORD_ADR (1); ! Start with second char 
; 296 0356 6 ' Set up STRINGPTR to be the remainder of the record after 
; 297 8 57 6 ! the first blank or tab, if any. 

: 298 58 6 l- 

: 299 0359 6 

: 00 0360 6 STRING_PTR = RECORD_ADR (1); 

; 301 0361 6 WHILE T.STRING_PTR CSSA .CCB CLUBSA_BUF_ENDJ) DO 

; O $366 7 BEGIN 

; 30 0365 7 LITERAL 

; 304 0364 7 K_TAB = 9; ! <TAB> charact 

; 05 0365 7 IF CHSRCHAR ( STRING_PTR) EQLU ZC’ * OR 

: 06 0366 7 CHSRCHAR (.STRING_PTR) EQLU 

; Sor 0367 7 THEN 

; 308 0368 7 EXITLOOP; 

: 309 0369 7 STRING_PTR = .STRING_PTR + 1; 

: 310 0370 6 END; 

oe ih 0371 6 

; ste 0372 6 PARAM_BLOCK CTPASL_STRINGPTR] = .STRING PTR; 

; 313 0373 6 PARAM_BLOCK CTPASL_STRINGCNT] = .CCB CLOBSA_BUF_END] - 

; 314 0374 6 .STRING_PTR? 

; 315 0375 6 

: 316 0376 6 1+ 

3 Sie 0377 6 ! Compare the group name with the string after the $ or & 
; 318 0378 6 '- 

; «4319 0379 6 

Pt 320 0380 7 IF .GROUPNAME_LEN EQL ((.PARAM_ BLOCK CTPASL_STRINGPTR] - .RECORD_ADR) - 1) 
S del 0381 7 THEN IF (INCR’POS FROM 1 TO .GROUPNAME_LEN BO 

s See bass 8 BEGIN 

; 323 0383 8 IF .GROUP_NAME C.POS] NEQ 

: 324 0384 9 ( 

3 6Se 0385 9 IF (.RECORD_ADR ([.POS] GEQ %C‘a') AND 

: 326 0386 10 (.RECORD_ADR C.POS] LEQ %C'z') 

3 oUBer 0387 9 N 

: 328 0388 10 -RECORD_ADR C.POS] = (%C'a’® = %C'A") 

; sey 0389 9 

: 330 0390 9 -RECORD_ADR (C.POS) 

: oa 0391 9 

$ jee 0392 8 HEN 

$ 339 0393 8 EXITLOOP 0; ! Mismatch found 

: 334 0394 6 END) NEQ 0 

s 335 0395 6 HEN 

; 36 0396 6 EXITLOOP; ! Match found 

s 337 0397 5§ END; 

; 338 0398 4 END; 

: iv 0399 4 

: 340 0400 4 '¢ 

; 341 0401 4 : Group name not found. See if the first non-blank is a ‘'?", 

; 4g bens 4 ! in which case we'll display the group we're looking for. 

: 34 0403 4 != 

: 44 0404 4 

: 45 Begs 4 IF RECORD_ADR (1) LSSA .CCB CLUBSA_BUF_END] 

: 346 406 4 THEN 

: 47 0407 5 BEGIN 

: «4348 0408 : LOCAL 

: 349 0409 CHARS_REMAINING, 


Page 
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AX-11 Bliss-32 V4.0-7 
FORRTL.SRCJFORUDFRN. 833; 


FOUND_CHAR: REF VECTOR C, WORD]; 


if FOUND es ae gontaing 


CHARS REMAINING NEQ 0 


B CLUBSA_BUF END] - - .RECORD_ADR)), 
AINING, FOUND~ CHAR 


dress of first non-blank character. 


CCB: REF SFORSFAB CCB STRUCT 
FAB_DEV = FAB CFABSL_DEVJ: BLOCK C4, BYTE); 


I aia CDEVSV_TRM] AND .FAB CFABSV_PUT) 


BEGIN 
— (.FOUND_CHAR) EQL %C'?' 


BEGIN 
FORSSREC_WSNO (); : 
FORS$$SDO_NML_OUTPUT (1); ! Dump names only 


' Start an output record 


D 
IF .CHARS_REMAINING GTRU 1 


BEGIN 
ee aes CHAR CO] EQL ZASCII*=?" 


BEGIN 
Peder y WSNO (); 


Start an output record 


! 
FORS$DO _AML _OUTPUT (0); | Dump values too 


END; 


!' Loop forever until EOF or match 


oup name (possibly empty). 


i at this point, STRINGPTR and STRINGCNT reflect the rest of phe record 


We now call LIBSTPARSE to 


execute any asstonnents. contained in the NAMELIST input. 


FORSSUDF _RN NAMELIST ingut UDF Lleve 
1-005 PROCESS_LIST - Process *NAMELIST input 
e0 8419 
1 411 
28 bois BUILTIN 
4) SKPC; 
54 0414 2 
55 0415 RECORD_ADR = 
356 0416 5 ate” tidy (XC 
57 0417 5 ORD_AD 
58 0418 5 
59 0419 5 te 
60 0420 5 
1 Be 1 2 See if i 
63 oc58 8 
64 0424 5 IF 
65 Res? 5 THE 
66 0426 6 BEGIN 
367 0427 6 BIND 
368 0428 6 FAB = 
369 0429 6 
370 0430 6 
371 0431 6 
a6 RL 6 
37 0433 7 
374 0434 7 
375 0435 7 
376 0436 8 
377 0437 8 
378 0438 8 
379 0439 8 EN 
380 0440 ELSE 
381 0441 7 THEN 
382 0442 8 
383 0443 8 
384 0444 8 
385 0445 9 
386 0446 9 
387 0447 9 
388 0448 8 
389 0449 7 
390 0450 6 END; 
391 0451 5 END; 
39 Bees 4 END; 
9 0453 4 
94 0454 3 END; 
95 0455 3 
96 0456 END; 
397 0457 
$05 0458 '+ 
99 0459 
400 0460 i after the qr 
401 0461 i i the par an 
40 ree: 
40 46 
404 464 
IF NOT LIBSTPARSE (PARAM_BLOCK, 
06 THEN 


i _The parse will terminate when a end-of-block or error is found. 


FORSSA_NMLSTATE, FORSSA_NMLKEYWD) 


1 


Page 
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PROCESS_LIST - Process NAMELIST input 14- = 8ep- 1984 90:93:33 PORRTL SRE SFORUDERY.03951 
0467 FORSSSIGNAL_STO (FORS_SYNERRNAM, PARAM_BLOCK CTPASL_TOKENCNT]); 
0469 RETURN; 
0470 1 END; ! End of routine FORSSUDF_RNO 
007C 00000 PROCESS_LIST: 
.WORD Save R2,R3,R4,R5,R6 
56 000000006 00 9€ 0000 MOVAB FORSSREC_WSNO, R6 
SE FF64 CE 9E 0000 MOVAB -156(SP); 
00 6 00 2c 00006 MOVCS #0, (SP), #0, #156, PARAM_BLOCK 
bE 08 DO 00016 MOVL #8, PAIAM_BLOCK 
~s FF7C CB D0 00019 MOVL =132¢ (COB): PARAM. BLOCK+36 
40 AE 5B DO O001F MOVL CCB, PARAM BLOCK? 
55 24 BE D0 00023 MOVL SBARARY BLOCK+36, GROUP_NAME 
000000006 00 16 00027 1S: JSB FORSS$REC_RSNO 
52 BO AB DO 900¢0 MOVL -80(CCB)> RECORD_ADR 
50 B4 AB 52 C3 90031 SUBL3 RECORD. ADR, -76(CCB), RO 
62 50 21 3A 00036 LOCC #33, RO, RE ECORD_ADR) 
B4 AB 51 DO O003A MOVL R1, = 
50 02 A2 9E 0003 MOVAB 2(R2), Roe 
53 B4 AB DO 00042 MOVL “76iCtB) R3 
53 50 D1 00046 CMPL RO, R 
71 1€ 00049 BGEQU§ 10 
24 01 A2 91 00048 CMPB 1(RECORD_ADR), #36 
06 13 O0004F BEQL 2$ 
26 01 ae 91 00051 CMPB T(RECORD_ADR), #38 
65 12 00055 BNEQ 10$ 
54 65 9A 00057 2$ MOVZBL (GROUP -NAME), GROUPNAME _LEN 
52 D6 O005A INCL RECORD 
50 01 A2 9E 0005¢ MOVAB 1(R2), ~STmiNG PTR 
53 50 D1 BO 68 3$ CMPL STRING R3 
OE 1€ 0006 BGEQU 4$ 
20 60 91 00065 CMPB , Reegeare #32 
09 13 00068 BEQL 4$ 
09 60 91 0006A CMPB (STRING_PTR), #9 
04 13 0006D BEQL 4$ 
50 06 O006F INCL STRING_PTR 
ED 11 00071 BRB 3$ 
oc OA 20 09 90073 4$ MOVL STRING_ PTR, PARAM_BLOCK+12 
08 AE 5 50 ¢3 0007 SUBL STRING-PTR, R3, PARAM BLOCK+8 
50 Oc AE 52 C3 0007C SUBL RECORD “ADR PARAM “BLOCKS 12, RO 
50 07 00081 DECL R 
50 54 01 00083 CMPL GROUPNAME_LEN, RO 
34 12 00086 BNEQ 10$ 
0 D4 00088 CLRL POS 
27 11 OOO8A BRB $ 
61 BF 6048 91 0008C 5$ CMPB (POS)CRECORD_ADR], #97 
10 1F 00091 BLSSU 
7A —sBF 6042 91 00093 CMPB (POS)CRECORD_ADRJ, #122 
09 1A 00098 BGTRU 
51 6042 9A 0009A MOVZBL (P95) CRECORD_ADR1. R1 
51 20 C2 0009E UBL #32, RI 
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041 BRB 7$ 
OAS 68: MOVZBL (POS) ) ERECORD AD 

0A $: CMP2vV. #0, # (POSTT GROUP. MANE], R1 
OAD BEQL = &$ 

OOAF CLRL ~—_ RO 

0081 BRB 9$ 

0 BS 8$ AOBLEQ GROUPNAME_LEN, POS, 5$ 
008 MNEGL #1, RO 

OOBA 9$: BNEQ 14§ 

OOBC 10$:  MOVAB 1(R2), RO 

00¢ CMPL R9 R$ 

990¢ BGEGU§ 138 

00¢ INCL. RECORD_A 

000¢7 SUBL3 noo" “ADR RO 

00CB SKPC #32, thecono _ADR) 

OOOCE MOVL RO, R 

90002 MOVL Ri, RS 

000D TSTL  CHARS_REMAINING 

90007 BEQL 13$ 

0009 BBC #2, 132(CCB), 13$ 

OO0DF BLBC 90(CCB), 13$ 

000E3 CMPB = (FOUND_CHAR), #63 

000E6 BNEQ 11$ 

000E8 JSB FORSSREC_WSNO 

OOOEA PUSHL #1 

OO0EC BRB 12$ 

OOOEE 118: CMPL § CHARS_REMAINING, #1 

OO0F1 BLEQU 13$ 

000F3 CMPW (FOUND_CHAR), #16189 

000F8 BNEQ 13$ 

OOOFA JSB FORSSREC_WSNO 

OOOFC CLRL = = (SP) 

OOOFE 128: CALLS #1, FORS$SDO_NML_OUTPUT 

00105 13$:  BRW 1$ 

00108 14$:  PUSHAB FORSSA_NMLKEYWD 

0010€ PUSHAB FORSSA~ NAL STATE 

00114 PUSHAB PARAM BLO 

00117 CALLS #3, L BS TBARSE 

0011E BLBS _—-RO 

00121 PUSHAB PARAM BLOCK+16 

00124 PUSHL W608? 

00124 CALLS #2, FORSSSIGNAL_STO 

00131 15$: RET 
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NAMELIST input UDF Level 18-Sep-19 4 99:49:15 AX-11 Oh fase se V4.0-74 Page 12 
FORSSUDF _RNY = Terminate NAMELIST input 14-Sep-1984 12:32:51 FORRTL.SRCJFORUDFRN.B32;1 (7) 
472 1 ZSBTTL "FORSSUDF_RND = Terminate NAMELIST input' 
475 1 GLOBAL ROUTINE FORSSUDF_RN9 ! Terminate NAMELIST input 
474 1 : JSB_UDF9 NOVALUE = 
475 1 
pels 1 !+4 
Reet ; FUNCTIONAL DESCRIPTION: 
oh 4 S Terminate NAMELIST input. ais procedure is necessary because 
beey ; FORSIC_END dispatches to a UDF9 routine for all statement types. 
Bees : } CALLING SEQUENCE: 
at 1} JSB FORSSUDF_RNO 
0485 1! 
0486 1 ! FORMAL PARAMETERS: 
0487 1! 
0488 1! NONE 
0489 1! 
0490 1! IMPLICIT INPUTS: 
0491 1! 
0492 1! NONE 
0495 1! 
0494 1 ! IMPLICIT OUTPUTS: 
0495 1! 
0496 1! NONE 
0497 1! 
0498 1 ! COMPLETION STATUS: 
0499 1! 
0500 1! NONE 
0501 1! 
0502 1 ! SIDE EFFECTS: 
0503 1! 
0504 1! NONE 
0505 1! 
0506 1 !-- 
0507 1 
0508 2 BEGIN 
0509 2 
0510 2 RETURN; 
0511 2 ; 
0512 1 END; ! End of routine FORSSUDF_RN9 
05 00000 FORSSUDF_RNI:: 
RSB ; 0512. 
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RSSUDF _RN pay ts] input UDF Level 16-Sep- ” 00:9 13 AX-11 ot SY V4.0-74 Page 13 
-005 FORSSUDF_RND = Terminate NAMELIST input 14- ~hep- 984 FORRTL.SRCJFORUDFRN.B32;1 (8) 

456 514 1 END ! End of module FORSSUDF_RN 

457 515 1 

458 516 0 ELUDOM 

PSECT SUMMARY 
Name Bytes Attributes 
_FORSCODE 313 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


File 


~$255$DUA28: CSYSLIBISTARLET. 
~$255$DUA28: CFORRTL .OBJJFOR 
~$255$DUA28: CFORRTL.OBJIRTL 
~$255$DUA28: CSYSLIBITPAMAC. 


mer. 
Weer 


Symbols -------=- Pages Processing 
Loaded Percent Mapped Time 
8 0 581 00:01.0 
207 29 52 00:00.6 
0 0 8 00:00.1 
0 0 14 00:00.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:FORUDFRN/OBJ=OBJ$:FORUDFRN MSRC$:FORUDF RN/UPDATE=(ENH$S: fF ORUDF RN? 


Size: 313 code + 0 data bytes 
00:10.7 


Elapsed Pues 00:37.3 
Lines/CPU Min: 2907 
Lexemes/CPU-Min: 11836 
Memory Used: 154 pages 
Compication Complete 
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